home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / NewPfile < prev    next >
Text File  |  1994-12-13  |  941b  |  18 lines
  1. /**************************************************************************\
  2.         $VER:
  3. \**************************************************************************/
  4. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  5. tr=transmit ; se=sendstring ; gc=getchar ; gu=getuser ; mg=maygetchar
  6. a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit
  7.  
  8. /* Insert YOUR ARexx Code Here! */
  9.  
  10. exit
  11. SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)'
  12. e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:';gu 1311992;a=result
  13. gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1
  14. logentry e2;e=sourceline(sigl);do while e~='';e3='c9Sourcecf: cd'
  15. e3=e3||left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  16. /** Last Edited: DD-MMM-YY ************************************************\
  17. \******************************************** MY BBS NAME (AAA)/PPP-SSSS **/
  18.